home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Special: 4 Vollversionen
/
Amiga Special CD-ROM 4 Vollversionen.iso
/
rexx
/
demoskript.afinder
next >
Wrap
Text File
|
1997-07-25
|
2KB
|
94 lines
/*
*
$VER: DemoSkript.afinder 1.0 (17.07.97)
*
* Demonstriert einige der ARexx-Befehle des ARTIKEL-Finders
*
*/
/* Pfad zur ARTIKELFinder-Datei */
pfad = "data/"
/* Name der ARTIKELFinder-Datei */
datei = "AMagazin_Demo"
options results
/* Nur notwendig, wenn Skript NICHT vom ARTIKELFinder aus aufgerufen wird */
/*
address 'AFINDER.1'
*/
SCREENTOFRONT
WINDOWTOFRONT
ACTIVATEWINDOW
GETATTR AFINDER STEM APPLIKATION
say 'Programmversion : 'APPLIKATION.VERSION
say 'PubScreenName : 'APPLIKATION.SCREEN
say 'ArexxPortName : 'APPLIKATION.AREXX
say 'ARexxFehler : 'APPLIKATION.AREXXERROR
say 'ISAMFehler : 'APPLIKATION.ISAMERROR
say 'Aktuelle Datei : 'APPLIKATION.FILENAME
OPEN NAME pfad||datei
if rc ~= 0 then
exit 10
if result == 0 then
say "Datei konnte nicht geöffnet werden"
else do
say "Datei wurde erfolgreich geöffnet"
GETATTR AFINDER FIELD FILENAME VAR openfile
say "Die aktuelle Datei lautet: " openfile
GETFIELD "Artikel"
feld_artikel = result
say "Erster Artikel: " feld_artikel
SELECTRECORD LAST
GETFIELD "Artikel"
feld_artikel = result
say "Letzter Artikel: " feld_artikel
SELECTRECORD NEXT
say "SELECTRECORD NEXT: " result
if result ~= 1 then do
if result == 0 then
say "Dateiende erreicht"
end
SELECTRECORD FIRST
SELECTRECORD NEXT
SELECTRECORD PREVIOUS
say "SELECTRECORD PREVIOUS: " result
SELECTRECORD PREVIOUS
say "SELECTRECORD PREVIOUS: " result
if result ~= 1 then do
if result == 0 then
say "Dateianfang erreicht"
end
SELECTFIELDS artikel hinweise beschreibung
say "SELECTFIELDS: "rc result
SEARCHSEQ PATTERN "Grafik" FIELDS OBEYCASE
say "SEARCHSEQ: "rc result
GETATTR OBJECT SEARCHVARS FIELD SEARCHSEQ
say "SEARCHVARS: "rc result
SEARCHHIER KEY "cd"
say "SEARCHHIER: "rc result
GETATTR OBJECT SEARCHVARS FIELD SEARCHHIER
say "SEARCHVARS: "rc result
QUITSEARCH
CLOSE
say "Datei wurde geschlossen"
end